home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / util / gnu / emacs_src.lha / emacs-18.58 / contrib / hessu / distinews.lha / inews.rexx < prev    next >
OS/2 REXX Batch file  |  1992-07-29  |  1KB  |  79 lines
  1. /*
  2.  * INEWS.REXX
  3.  *  
  4.  * Copyright (c) 1992 Tapio Heiskanen
  5.  * All rights reserved
  6.  *
  7.  * Only for use with GNUS.
  8.  * 
  9.  */
  10.  
  11. id            = pragma(id)
  12. before    = 't:inews'id'befor'
  13. after        = 't:inews'id'after'
  14.  
  15. address command
  16.  
  17. 'perg ** >'before' 'stdin
  18.  
  19. if ~open(env, 'env:user', 'r') then
  20.     exit 10
  21. else do
  22.     login=readln(env)
  23. end
  24. call close(env)
  25.  
  26. if ~open(passwd, 'getty:passwd', 'r') then
  27.     exit 10
  28. else
  29.     do until eof(passwd)
  30.         instr=readln(passwd)
  31.         parse var instr user','pass','uid','gid','realname','therest
  32.         if user=login then break
  33.     end
  34. call close(passwd)
  35.  
  36. if ~open(config, 'uulib:config', 'r') then
  37.     exit 10
  38. else
  39.     do until eof(config)
  40.         instr=space( translate( readln(config), ' ', '08'x), 1)
  41.         parse var instr idstr' 'mach
  42.         if idstr='NodeName' then break
  43.     end
  44. call close(config)
  45.  
  46. /*
  47.  * This creates a command file for Edit V37.2.
  48.  * This file is used to replace an_amiga and unknown to what they should be.
  49.  */
  50.  
  51. call open(o, 't:'id'.ed', 'w')
  52.     call writeln(o, 'f ?Path: ?')
  53.     call writeln(o, 'e/an_amiga/'mach)
  54.     call writeln(o, 'f ?From: ?')
  55.     call writeln(o, 'e/an_amiga/'mach)
  56.     call writeln(o, 'e/unknown/'realname)
  57.     call writeln(o, 'f ?Message-ID: ?')
  58.     call writeln(o, 'e/an_amiga/'mach)
  59.     call writeln(o, 'f ?Organization: ?')
  60.     call writeln(o, 'w')
  61. call close(o)
  62.  
  63. 'c:edit 'before' 'after' with t:'id'.ed'
  64.  
  65.  
  66. /* Now add the signature */
  67.  
  68. 'echo >>'after' "*n"'
  69. 'type uulib:.signature >>'after
  70.  
  71.  
  72. /* Post the hole lot! */
  73.  
  74. 'rnews <'after
  75.  
  76. /* Delete temp files */
  77.  
  78. 'delete 'id'.ed 'before' 'after' quiet'
  79.